[NAGWare Gateway Generator] Copyright (c) 1993 by the Numerical Algorithms Group Ltd lsfun1
m integer n integer xc (n) real fvecc (m) real [fvecc] = lsfun1(m,n,xc) function [fvecc] = lsfun1(m,n,xc)